home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Delphi Magazine Collection 2001
/
Delphi Magazine Collection 20001 (2001).iso
/
DISKS
/
Issue38
/
Clinic
/
StpKey1U.dfm
/
StpKey1U.txt
Wrap
Text File
|
1998-07-07
|
2KB
|
118 lines
object Form1: TForm1
Left = 192
Top = 107
BorderStyle = bsSingle
Caption = 'Key interception example #1'
ClientHeight = 242
ClientWidth = 352
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
PixelsPerInch = 96
Position = poDefaultPosOnly
OnKeyDown = FormKeyDown
TextHeight = 13
object Label1: TLabel
Left = 8
Top = 8
Width = 318
Height = 19
Caption = 'Press Escape to change the form'#39's colour'
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 8
Top = 32
Width = 306
Height = 19
Caption = 'Press Ctrl+S to minimise this application'
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 8
Top = 56
Width = 338
Height = 19
Caption = 'Press Alt+S to update this form'#39's caption bar'
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Edit1: TEdit
Left = 24
Top = 104
Width = 121
Height = 21
TabOrder = 0
Text = 'Edit1'
end
object Edit2: TEdit
Left = 24
Top = 136
Width = 121
Height = 21
TabOrder = 1
Text = 'Edit2'
end
object Edit3: TEdit
Left = 24
Top = 168
Width = 121
Height = 21
TabOrder = 2
Text = 'Edit3'
end
object Edit4: TEdit
Left = 24
Top = 200
Width = 121
Height = 21
TabOrder = 3
Text = 'Edit4'
end
object Edit5: TEdit
Left = 192
Top = 104
Width = 121
Height = 21
TabOrder = 4
Text = 'Edit5'
end
object Edit6: TEdit
Left = 192
Top = 136
Width = 121
Height = 21
TabOrder = 5
Text = 'Edit6'
end
object Edit7: TEdit
Left = 192
Top = 168
Width = 121
Height = 21
TabOrder = 6
Text = 'Edit7'
end
object Edit8: TEdit
Left = 192
Top = 200
Width = 121
Height = 21
TabOrder = 7
Text = 'Edit8'
end
end